home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / bob_ah.inc < prev    next >
Text File  |  1998-08-30  |  10KB  |  614 lines
  1. *---------------------------------------
  2. *
  3. *    â{âuò\Ī
  4. *
  5. *    ï¡ìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. high_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subi.w    #16,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$0029,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     subi.w    #16,d1
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.         
  54.     addi.w    #16,d1
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     subi.w    #16,d1
  62.     addi.w    #16,d2
  63.     addq.w    #1,d7
  64.     move.w    d1,(a6)+
  65.     move.w    d2,(a6)+
  66.     move.w    d7,(a6)+
  67.     move.w    #$0003,(a6)+
  68.  
  69.     addi.w    #16,d1
  70.     addq.w    #1,d7
  71.     move.w    d1,(a6)+
  72.     move.w    d2,(a6)+
  73.     move.w    d7,(a6)+
  74.     move.w    #$0003,(a6)+
  75.  
  76.     addi.w    #32,d1
  77.     subi.w    #32,d2
  78.     addq.w    #1,d7
  79.     move.w    d1,(a6)+
  80.     move.w    d2,(a6)+
  81.     move.w    d7,(a6)+
  82.     move.w    #$0003,(a6)+
  83.  
  84.     rts
  85. @@:
  86.     addi.w    #$402a,d7
  87.     move.w    d1,(a6)+
  88.     move.w    d2,(a6)+
  89.     move.w    d7,(a6)+
  90.     move.w    #$0003,(a6)+
  91.  
  92.     addi.w    #16,d1
  93.     subq.w    #1,d7
  94.     move.w    d1,(a6)+
  95.     move.w    d2,(a6)+
  96.     move.w    d7,(a6)+
  97.     move.w    #$0003,(a6)+
  98.  
  99.     subi.w    #16,d1
  100.     addi.w    #16,d2
  101.     addq.w    #3,d7
  102.     move.w    d1,(a6)+
  103.     move.w    d2,(a6)+
  104.     move.w    d7,(a6)+
  105.     move.w    #$0003,(a6)+
  106.  
  107.     addi.w    #16,d1
  108.     subq.w    #1,d7
  109.     move.w    d1,(a6)+
  110.     move.w    d2,(a6)+
  111.     move.w    d7,(a6)+
  112.     move.w    #$0003,(a6)+
  113.  
  114.     subi.w    #16,d1
  115.     addi.w    #16,d2
  116.     addq.w    #3,d7
  117.     move.w    d1,(a6)+
  118.     move.w    d2,(a6)+
  119.     move.w    d7,(a6)+
  120.     move.w    #$0003,(a6)+
  121.  
  122.     addi.w    #16,d1
  123.     subq.w    #1,d7
  124.     move.w    d1,(a6)+
  125.     move.w    d2,(a6)+
  126.     move.w    d7,(a6)+
  127.     move.w    #$0003,(a6)+
  128.  
  129.     subi.w    #16,d1
  130.     addi.w    #16,d2
  131.     addq.w    #3,d7
  132.     move.w    d1,(a6)+
  133.     move.w    d2,(a6)+
  134.     move.w    d7,(a6)+
  135.     move.w    #$0003,(a6)+
  136.  
  137.     addi.w    #16,d1
  138.     subq.w    #1,d7
  139.     move.w    d1,(a6)+
  140.     move.w    d2,(a6)+
  141.     move.w    d7,(a6)+
  142.     move.w    #$0003,(a6)+
  143.  
  144.     subi.w    #48,d1
  145.     subi.w    #32,d2
  146.     addq.w    #2,d7
  147.     move.w    d1,(a6)+
  148.     move.w    d2,(a6)+
  149.     move.w    d7,(a6)+
  150.     move.w    #$0003,(a6)+
  151.  
  152.     rts
  153. *---------------------------------------
  154. high_a:
  155.     move.w    C_X(a1),d1
  156.     move.w    C_Y(a1),d2
  157.     subi.w    #16,d1
  158.     subi.w    #32,d2
  159.     tst.w    C_LR_F(a1)
  160.     bne    @f
  161.  
  162.     addi.w    #$0029,d7
  163.     move.w    d1,(a6)+
  164.     move.w    d2,(a6)+
  165.     move.w    d7,(a6)+
  166.     move.w    #$0003,(a6)+
  167.  
  168.     addi.w    #16,d1
  169.     addq.w    #1,d7
  170.     move.w    d1,(a6)+
  171.     move.w    d2,(a6)+
  172.     move.w    d7,(a6)+
  173.     move.w    #$0003,(a6)+
  174.  
  175.     subi.w    #16,d1
  176.     addi.w    #16,d2
  177.     addq.w    #1,d7
  178.     move.w    d1,(a6)+
  179.     move.w    d2,(a6)+
  180.     move.w    d7,(a6)+
  181.     move.w    #$0003,(a6)+
  182.  
  183.     addi.w    #16,d1
  184.     addq.w    #1,d7
  185.     move.w    d1,(a6)+
  186.     move.w    d2,(a6)+
  187.     move.w    d7,(a6)+
  188.     move.w    #$0003,(a6)+
  189.  
  190.     subi.w    #16,d1
  191.     addi.w    #16,d2
  192.     addq.w    #1,d7
  193.     move.w    d1,(a6)+
  194.     move.w    d2,(a6)+
  195.     move.w    d7,(a6)+
  196.     move.w    #$0003,(a6)+
  197.         
  198.     addi.w    #16,d1
  199.     addq.w    #1,d7
  200.     move.w    d1,(a6)+
  201.     move.w    d2,(a6)+
  202.     move.w    d7,(a6)+
  203.     move.w    #$0003,(a6)+
  204.  
  205.     subi.w    #16,d1
  206.     addi.w    #16,d2
  207.     addq.w    #1,d7
  208.     move.w    d1,(a6)+
  209.     move.w    d2,(a6)+
  210.     move.w    d7,(a6)+
  211.     move.w    #$0003,(a6)+
  212.  
  213.     addi.w    #16,d1
  214.     addq.w    #1,d7
  215.     move.w    d1,(a6)+
  216.     move.w    d2,(a6)+
  217.     move.w    d7,(a6)+
  218.     move.w    #$0003,(a6)+
  219.  
  220.     addi.w    #32,d1
  221.     subi.w    #48,d2
  222.     addq.w    #2,d7
  223.     move.w    d1,(a6)+
  224.     move.w    d2,(a6)+
  225.     move.w    d7,(a6)+
  226.     move.w    #$0003,(a6)+
  227.  
  228.     addi.w    #16,d2
  229.     addq.w    #1,d7
  230.     move.w    d1,(a6)+
  231.     move.w    d2,(a6)+
  232.     move.w    d7,(a6)+
  233.     move.w    #$0003,(a6)+
  234.  
  235.     rts
  236. @@:
  237.     addi.w    #$402a,d7
  238.     move.w    d1,(a6)+
  239.     move.w    d2,(a6)+
  240.     move.w    d7,(a6)+
  241.     move.w    #$0003,(a6)+
  242.  
  243.     addi.w    #16,d1
  244.     subq.w    #1,d7
  245.     move.w    d1,(a6)+
  246.     move.w    d2,(a6)+
  247.     move.w    d7,(a6)+
  248.     move.w    #$0003,(a6)+
  249.  
  250.     subi.w    #16,d1
  251.     addi.w    #16,d2
  252.     addq.w    #3,d7
  253.     move.w    d1,(a6)+
  254.     move.w    d2,(a6)+
  255.     move.w    d7,(a6)+
  256.     move.w    #$0003,(a6)+
  257.  
  258.     addi.w    #16,d1
  259.     subq.w    #1,d7
  260.     move.w    d1,(a6)+
  261.     move.w    d2,(a6)+
  262.     move.w    d7,(a6)+
  263.     move.w    #$0003,(a6)+
  264.  
  265.     subi.w    #16,d1
  266.     addi.w    #16,d2
  267.     addq.w    #3,d7
  268.     move.w    d1,(a6)+
  269.     move.w    d2,(a6)+
  270.     move.w    d7,(a6)+
  271.     move.w    #$0003,(a6)+
  272.  
  273.     addi.w    #16,d1
  274.     subq.w    #1,d7
  275.     move.w    d1,(a6)+
  276.     move.w    d2,(a6)+
  277.     move.w    d7,(a6)+
  278.     move.w    #$0003,(a6)+
  279.  
  280.     subi.w    #16,d1
  281.     addi.w    #16,d2
  282.     addq.w    #3,d7
  283.     move.w    d1,(a6)+
  284.     move.w    d2,(a6)+
  285.     move.w    d7,(a6)+
  286.     move.w    #$0003,(a6)+
  287.  
  288.     addi.w    #16,d1
  289.     subq.w    #1,d7
  290.     move.w    d1,(a6)+
  291.     move.w    d2,(a6)+
  292.     move.w    d7,(a6)+
  293.     move.w    #$0003,(a6)+
  294.  
  295.     subi.w    #48,d1
  296.     subi.w    #48,d2
  297.     addq.w    #3,d7
  298.     move.w    d1,(a6)+
  299.     move.w    d2,(a6)+
  300.     move.w    d7,(a6)+
  301.     move.w    #$0003,(a6)+
  302.  
  303.     addi.w    #16,d2
  304.     addq.w    #1,d7
  305.     move.w    d1,(a6)+
  306.     move.w    d2,(a6)+
  307.     move.w    d7,(a6)+
  308.     move.w    #$0003,(a6)+
  309.  
  310.     rts
  311. *---------------------------------------
  312. high_t:
  313.     move.w    C_X(a1),d1
  314.     move.w    C_Y(a1),d2
  315.     subi.w    #16,d1
  316.     subi.w    #32,d2
  317.     tst.w    C_LR_F(a1)
  318.     bne    @f
  319.  
  320.     addi.w    #$0029,d7
  321.     move.w    d1,(a6)+
  322.     move.w    d2,(a6)+
  323.     move.w    d7,(a6)+
  324.     move.w    #$0003,(a6)+
  325.  
  326.     addi.w    #16,d1
  327.     addq.w    #1,d7
  328.     move.w    d1,(a6)+
  329.     move.w    d2,(a6)+
  330.     move.w    d7,(a6)+
  331.     move.w    #$0003,(a6)+
  332.  
  333.     subi.w    #16,d1
  334.     addi.w    #16,d2
  335.     addq.w    #1,d7
  336.     move.w    d1,(a6)+
  337.     move.w    d2,(a6)+
  338.     move.w    d7,(a6)+
  339.     move.w    #$0003,(a6)+
  340.  
  341.     addi.w    #16,d1
  342.     addq.w    #1,d7
  343.     move.w    d1,(a6)+
  344.     move.w    d2,(a6)+
  345.     move.w    d7,(a6)+
  346.     move.w    #$0003,(a6)+
  347.  
  348.     subi.w    #16,d1
  349.     addi.w    #16,d2
  350.     addq.w    #1,d7
  351.     move.w    d1,(a6)+
  352.     move.w    d2,(a6)+
  353.     move.w    d7,(a6)+
  354.     move.w    #$0003,(a6)+
  355.         
  356.     addi.w    #16,d1
  357.     addq.w    #1,d7
  358.     move.w    d1,(a6)+
  359.     move.w    d2,(a6)+
  360.     move.w    d7,(a6)+
  361.     move.w    #$0003,(a6)+
  362.  
  363.     subi.w    #16,d1
  364.     addi.w    #16,d2
  365.     addq.w    #1,d7
  366.     move.w    d1,(a6)+
  367.     move.w    d2,(a6)+
  368.     move.w    d7,(a6)+
  369.     move.w    #$0003,(a6)+
  370.  
  371.     addi.w    #16,d1
  372.     addq.w    #1,d7
  373.     move.w    d1,(a6)+
  374.     move.w    d2,(a6)+
  375.     move.w    d7,(a6)+
  376.     move.w    #$0003,(a6)+
  377.  
  378.     addi.w    #32,d1
  379.     subi.w    #32,d2
  380.     addq.w    #4,d7
  381.     move.w    d1,(a6)+
  382.     move.w    d2,(a6)+
  383.     move.w    d7,(a6)+
  384.     move.w    #$0003,(a6)+
  385.  
  386.     rts
  387. @@:
  388.     addi.w    #$402a,d7
  389.     move.w    d1,(a6)+
  390.     move.w    d2,(a6)+
  391.     move.w    d7,(a6)+
  392.     move.w    #$0003,(a6)+
  393.  
  394.     addi.w    #16,d1
  395.     subq.w    #1,d7
  396.     move.w    d1,(a6)+
  397.     move.w    d2,(a6)+
  398.     move.w    d7,(a6)+
  399.     move.w    #$0003,(a6)+
  400.  
  401.     subi.w    #16,d1
  402.     addi.w    #16,d2
  403.     addq.w    #3,d7
  404.     move.w    d1,(a6)+
  405.     move.w    d2,(a6)+
  406.     move.w    d7,(a6)+
  407.     move.w    #$0003,(a6)+
  408.  
  409.     addi.w    #16,d1
  410.     subq.w    #1,d7
  411.     move.w    d1,(a6)+
  412.     move.w    d2,(a6)+
  413.     move.w    d7,(a6)+
  414.     move.w    #$0003,(a6)+
  415.  
  416.     subi.w    #16,d1
  417.     addi.w    #16,d2
  418.     addq.w    #3,d7
  419.     move.w    d1,(a6)+
  420.     move.w    d2,(a6)+
  421.     move.w    d7,(a6)+
  422.     move.w    #$0003,(a6)+
  423.  
  424.     addi.w    #16,d1
  425.     subq.w    #1,d7
  426.     move.w    d1,(a6)+
  427.     move.w    d2,(a6)+
  428.     move.w    d7,(a6)+
  429.     move.w    #$0003,(a6)+
  430.  
  431.     subi.w    #16,d1
  432.     addi.w    #16,d2
  433.     addq.w    #3,d7
  434.     move.w    d1,(a6)+
  435.     move.w    d2,(a6)+
  436.     move.w    d7,(a6)+
  437.     move.w    #$0003,(a6)+
  438.  
  439.     addi.w    #16,d1
  440.     subq.w    #1,d7
  441.     move.w    d1,(a6)+
  442.     move.w    d2,(a6)+
  443.     move.w    d7,(a6)+
  444.     move.w    #$0003,(a6)+
  445.  
  446.     subi.w    #48,d1
  447.     subi.w    #32,d2
  448.     addq.w    #5,d7
  449.     move.w    d1,(a6)+
  450.     move.w    d2,(a6)+
  451.     move.w    d7,(a6)+
  452.     move.w    #$0003,(a6)+
  453.  
  454.     rts
  455. *---------------------------------------
  456. high2:
  457.     move.w    C_X(a1),d1
  458.     move.w    C_Y(a1),d2
  459.     subi.w    #16,d1
  460.     subi.w    #32,d2
  461.     tst.w    C_LR_F(a1)
  462.     bne    @f
  463.  
  464.     addi.w    #$0055,d7
  465.     move.w    d1,(a6)+
  466.     move.w    d2,(a6)+
  467.     move.w    d7,(a6)+
  468.     move.w    #$0003,(a6)+
  469.  
  470.     addi.w    #16,d1
  471.     addq.w    #1,d7
  472.     move.w    d1,(a6)+
  473.     move.w    d2,(a6)+
  474.     move.w    d7,(a6)+
  475.     move.w    #$0003,(a6)+
  476.  
  477.     subi.w    #16,d1
  478.     addi.w    #16,d2
  479.     addq.w    #1,d7
  480.     move.w    d1,(a6)+
  481.     move.w    d2,(a6)+
  482.     move.w    d7,(a6)+
  483.     move.w    #$0003,(a6)+
  484.  
  485.     addi.w    #16,d1
  486.     addq.w    #1,d7
  487.     move.w    d1,(a6)+
  488.     move.w    d2,(a6)+
  489.     move.w    d7,(a6)+
  490.     move.w    #$0003,(a6)+
  491.  
  492.     subi.w    #16,d1
  493.     addi.w    #16,d2
  494.     addq.w    #1,d7
  495.     move.w    d1,(a6)+
  496.     move.w    d2,(a6)+
  497.     move.w    d7,(a6)+
  498.     move.w    #$0003,(a6)+
  499.         
  500.     addi.w    #16,d1
  501.     addq.w    #1,d7
  502.     move.w    d1,(a6)+
  503.     move.w    d2,(a6)+
  504.     move.w    d7,(a6)+
  505.     move.w    #$0003,(a6)+
  506.  
  507.     subi.w    #16,d1
  508.     addi.w    #16,d2
  509.     addq.w    #1,d7
  510.     move.w    d1,(a6)+
  511.     move.w    d2,(a6)+
  512.     move.w    d7,(a6)+
  513.     move.w    #$0003,(a6)+
  514.  
  515.     addi.w    #16,d1
  516.     addq.w    #1,d7
  517.     move.w    d1,(a6)+
  518.     move.w    d2,(a6)+
  519.     move.w    d7,(a6)+
  520.     move.w    #$0003,(a6)+
  521.  
  522.     addi.w    #16,d1
  523.     subi.w    #48,d2
  524.     addi.w    #17,d7
  525.     move.w    d1,(a6)+
  526.     move.w    d2,(a6)+
  527.     move.w    d7,(a6)+
  528.     move.w    #$0003,(a6)+
  529.  
  530.     addi.w    #16,d2
  531.     addq.w    #1,d7
  532.     move.w    d1,(a6)+
  533.     move.w    d2,(a6)+
  534.     move.w    d7,(a6)+
  535.     move.w    #$0003,(a6)+
  536.  
  537.     rts
  538. @@:
  539.     addi.w    #$4056,d7
  540.     move.w    d1,(a6)+
  541.     move.w    d2,(a6)+
  542.     move.w    d7,(a6)+
  543.     move.w    #$0003,(a6)+
  544.  
  545.     addi.w    #16,d1
  546.     subq.w    #1,d7
  547.     move.w    d1,(a6)+
  548.     move.w    d2,(a6)+
  549.     move.w    d7,(a6)+
  550.     move.w    #$0003,(a6)+
  551.  
  552.     subi.w    #16,d1
  553.     addi.w    #16,d2
  554.     addq.w    #3,d7
  555.     move.w    d1,(a6)+
  556.     move.w    d2,(a6)+
  557.     move.w    d7,(a6)+
  558.     move.w    #$0003,(a6)+
  559.  
  560.     addi.w    #16,d1
  561.     subq.w    #1,d7
  562.     move.w    d1,(a6)+
  563.     move.w    d2,(a6)+
  564.     move.w    d7,(a6)+
  565.     move.w    #$0003,(a6)+
  566.  
  567.     subi.w    #16,d1
  568.     addi.w    #16,d2
  569.     addq.w    #3,d7
  570.     move.w    d1,(a6)+
  571.     move.w    d2,(a6)+
  572.     move.w    d7,(a6)+
  573.     move.w    #$0003,(a6)+
  574.  
  575.     addi.w    #16,d1
  576.     subq.w    #1,d7
  577.     move.w    d1,(a6)+
  578.     move.w    d2,(a6)+
  579.     move.w    d7,(a6)+
  580.     move.w    #$0003,(a6)+
  581.  
  582.     subi.w    #16,d1
  583.     addi.w    #16,d2
  584.     addq.w    #3,d7
  585.     move.w    d1,(a6)+
  586.     move.w    d2,(a6)+
  587.     move.w    d7,(a6)+
  588.     move.w    #$0003,(a6)+
  589.  
  590.     addi.w    #16,d1
  591.     subq.w    #1,d7
  592.     move.w    d1,(a6)+
  593.     move.w    d2,(a6)+
  594.     move.w    d7,(a6)+
  595.     move.w    #$0003,(a6)+
  596.  
  597.     subi.w    #32,d1
  598.     subi.w    #48,d2
  599.     addi.w    #18,d7
  600.     move.w    d1,(a6)+
  601.     move.w    d2,(a6)+
  602.     move.w    d7,(a6)+
  603.     move.w    #$0003,(a6)+
  604.  
  605.     addi.w    #16,d2
  606.     addq.w    #1,d7
  607.     move.w    d1,(a6)+
  608.     move.w    d2,(a6)+
  609.     move.w    d7,(a6)+
  610.     move.w    #$0003,(a6)+
  611.  
  612.     rts
  613. *---------------------------------------
  614.